home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / setseq.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-16  |  2.1 KB  |  107 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 17 "setseq.d"
  17. #include "set1.h" 
  18.  
  19. #define    CLASS    SetSequence_c
  20. #define    ivType    SetSequence_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    SetSequence_c;
  25.  
  26.  
  27. #line 28 "setseq.c"
  28. typedef struct  _SetSequence_iv_t  {
  29.     int iTabidx;
  30.     int iSize;
  31.     NODE * iTab;
  32.     NODE iCurrent;
  33. }    SetSequence_iv_t;
  34.  
  35.  
  36.  
  37. #line 27 "setseq.d"
  38. cmeth objrtn SetSequence_cm_gNewSetSeq(object self, int size, int nelm, void *tab)
  39. { 
  40.     object seq = oSuper(SetSequence_c, gNew, self)(self); 
  41.     ivType *iv = ivPtr(seq); 
  42.     iv->iSize = size; 
  43.     iv->iTab = (NODE *) tab; 
  44.     if (nelm) { 
  45.         for (; !iv->iTab[iv->iTabidx] ; ++iv->iTabidx); 
  46.         iv->iCurrent = iv->iTab[iv->iTabidx]; 
  47.     } 
  48.     return seq; 
  49. } 
  50.  
  51. imeth objrtn SetSequence_im_gNext(object self)
  52. { SetSequence_iv_t *iv = GetIVs(SetSequence, self);
  53.     NODE n; 
  54.     if (n = iv->iCurrent) { 
  55.         if (!(iv->iCurrent = iv->iCurrent->next)) 
  56.             while (++iv->iTabidx < iv->iSize) 
  57.             if (iv->iTab[iv->iTabidx]) { 
  58.             iv->iCurrent = iv->iTab[iv->iTabidx]; 
  59.             break; 
  60.         } 
  61.         return n->luk; 
  62.     } 
  63.     return gDispose(self); 
  64. } 
  65.  
  66.  
  67. #line 68 "setseq.c"
  68.  
  69. objrtn    SetSequence_initialize(void)
  70. {
  71.     static  CRITICALSECTION  cs;
  72.     static  int volatile once = 0;
  73.  
  74.     ENTERCRITICALSECTION(_CI_CS_);
  75.     if (!once) {
  76.         INITIALIZECRITICALSECTION(cs);
  77.         once = 1;
  78.     }
  79.     LEAVECRITICALSECTION(_CI_CS_);
  80.  
  81.     ENTERCRITICALSECTION(cs);
  82.  
  83.     if (SetSequence_c) {
  84.         LEAVECRITICALSECTION(cs);
  85.         return SetSequence_c;
  86.     }
  87.     INHIBIT_THREADER;
  88.     Sequence_initialize();
  89.     if (SetSequence_c)  {
  90.         ENABLE_THREADER;
  91.         LEAVECRITICALSECTION(cs);
  92.         return SetSequence_c;
  93.     }
  94.     SetSequence_c = gNewClass(Class, "SetSequence", sizeof(SetSequence_iv_t), 0, Sequence, END);
  95.     cMethodFor(SetSequence, gNewSetSeq, SetSequence_cm_gNewSetSeq);
  96.     iMethodFor(SetSequence, gNext, SetSequence_im_gNext);
  97.  
  98.     ENABLE_THREADER;
  99.  
  100.     LEAVECRITICALSECTION(cs);
  101.  
  102.     return SetSequence_c;
  103. }
  104.  
  105.  
  106.  
  107.